home *** CD-ROM | disk | FTP | other *** search
/ Business Shareware / Business Shareware.iso / start / wordproc / me_cd25 / bind.mut < prev    next >
Encoding:
Text File  |  1992-11-09  |  928 b   |  39 lines
  1.     ; help with bind.c
  2. (defun
  3.   get-binding-number HIDDEN    ; input: binding name
  4.   {
  5.     (int n)
  6.  
  7.     (mark-and-home)(search-forward "bindings[]")
  8.     (forward-line 1)
  9.     (n 0)
  10.     (while TRUE
  11.     {
  12.       (forward-line 1)(beginning-of-line)
  13.       (if (not (looking-at '^  "')) { -1 (done) })
  14.       (if (looking-at '  "' (arg 0)) (break))
  15.       (+= n 1)
  16.     })
  17.     (swap-marks)
  18.     (n)
  19.   }
  20.   stepping-stone
  21.   {
  22.     (string name)(int n)
  23.  
  24.     (beginning-of-buffer)(search-forward "defaultkeys[]")
  25.     (while TRUE
  26.     {
  27.       (if (search-forward "SYS,") () { (msg "Done.") (done) })
  28.     ;; "SYS,<number><whitespace>/* <command name> [stuff] */"
  29.       (looking-at '\d+,\ +/\* \(\w+\)')
  30.       (name (get-matched '\1'))
  31.       (if (== (n (get-binding-number name)) -1)
  32.     { (msg name " not found")(done) })
  33.       (cut-word)(insert-text n)
  34.       (update)
  35.     })
  36.   }
  37. )
  38. ;(bind-local-key "stepping-stone" "`")
  39.